#Include "Protheus.ch"

///////////////////////////////////////////////////////////////
// Programa....: GSLAB02.PRW           // Data..: 15/11/2006 //
// Setor.......: Laboratorio                                 //
// Tabelas.....: SZ2-> Cabecalho       // SZ3-> ITENS        //
// Programador.: Wanderson Fernandes de Souza                //
// Programa Secundario..: MOD3MANUT.PRW                      //
///////////////////////////////////////////////////////////////
User Function AVI00091()
Private cCadastro:="Boletim de Controle diversos Queijos"
Private cAlias1  :="SZ2"
Private cAlias2  :="SZ3"
Private aRotina  :={}
aAdd(aRotina,{"Pesquisar" , "AxPesqui"	,0,1})
aAdd(aRotina,{"Visualizar", "u_AVI00092",0,2})
aAdd(aRotina,{"Incluir"   , "u_AVI00092",0,3})
aAdd(aRotina,{"Alterar"   , "u_AVI00092",0,4}) 
aAdd(aRotina,{"Excluir"   , "u_AVI00092",0,5})
aAdd(aRotina,{"Fechamento", "u_GSBOLSTA",0,4}) 
aAdd(aRotina,{"Legenda"   , "u_GSBOLLEG",0,6})

aCores:={{"Z2_STATUS ==0  ","BR_VERDE"},;
{"Z2_STATUS == 1 ", "BR_VERMELHO"}}

dbSelectArea("SZ2")
dbSetOrder(1)
mBrowse(7,1,22,75,"SZ2",,,,,/*7*/,aCores)
Return

// ----------------------------------------------------------------------------------- //

User Function GSBOLLEG()
BrwLegenda(cCadastro,"Status da Analise",{{"BR_VERDE   ","Boletim Aberto"},;
								{"BR_VERMELHO    ","Boletim Fechado"}})
Return .T.         

// ----------------------------------------------------------------------------------- //

User Function GSBOLSTA()
                      
DbSelectArea("SZ2")
      
IF SZ2->Z2_STATUS == 0
	If MsgYesNo("Fechar boletim ?",cCadastro)
		If RecLock("SZ2",.F.)
		             
		    SZ2->Z2_STATUS := 1 
			MsUnLock()
		EndIf
	EndIf
Else
	MSGALERT("Boletim fechado.")
EndIf

Return

// ----------------------------------------------------------------------------------- //